home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
SHELLS
/
SZ2
/
BCAST.EVT
< prev
next >
Wrap
Text File
|
1992-08-31
|
2KB
|
52 lines
{|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
TARGET - Can you see the two ways this is accessed?
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||}
procedure ResultMsg ( S : string ) ;
begin
MessageBox ( ^C + S ,
NIL ,
mfInformation + mfOKButton ) ;
end ;
{|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
BROADCAST
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||}
{===================================================================
Extracted by SHAZAM, and placed in "HandleBroadcast"
===================================================================}
procedure hbSendIndirect ;
begin
ResultMsg ( 'BROADCAST!' ) ;
end ;
{|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
COMMAND
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||}
{===================================================================
Extracted and placed in "HandleCommand"; called from MenuBar
===================================================================}
procedure hdSendDirect ;
begin
ResultMsg ( 'DIRECT!' ) ;
end ;
{===================================================================
Extracted and placed in "HandleCommand"; called from MenuBar
===================================================================}
procedure hdSendBroadcast ;
begin
Message ( Application ,
evBroadcast ,
cmSendIndirect ,
NIL ) ;
end ;